10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 POKE788,49
30 POKE55,0:POKE56,56:CLR:A$=""
40 DV=PEEK(186):IFDV<8THENDV=8
50 DIM R$(11),C(11),E(11),AN$(13,15)
60 GOSUB60000
70 DEF FND(I)=20-(LEN(AN$(X,I))/2)
80 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
90 SYS57812"PACKAGE.O",DV,0:POKE780,0:POKE781,80:POKE782,195:SYS65493
100 SYS57812"PRINT9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
110 SYS57812"NSA TITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
120 SYS57812"NSA FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
130 POKE251,64:POKE252,224:POKE253,204:SYS51456
140 POKE252,224:POKE253,204:SYS51459
150 IP=50000:UNPACK=51456:HGR=51459
160 PS=50006:BA=50009
170 OPEN2,DV,2,"NSA TEXT,P,R"
172 GET#2,A$:GET#2,A$
174 INPUT#2,NP
176 FORI=1TONP:SYSIP,2,40:R$(I)=A$:SYSIP,2,40:C(I)=VAL(A$):NEXT
180 J=1:K=0:FORI=0TO1:SYSIP,2,40:I=ST
190 IFA$="*"THENJ=J+1:K=0:GOTO210
200 K=K+1:AN$(J,K)=A$
210 NEXT:CLOSE2
260 SYSHGR
270 FORX=1TONP
280 GOSUB1440
290 SYS57812R$(X),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
300 MD=PEEK(64*256)
310 GOSUB1530:IFA$="Q"ORA$="[209]"THENGOSUB1210
320 GOSUB1660
330 E(X)=PEEK(53281)
340 KK=0:POKE198,0:TI$="000000"
350 IFZ3=0THEN380
360 Z4=Z4+1:Z4=Z4AND15
370 POKE53281,Z4
380 KK=KK+1:GETA$:IFA$=""ANDTI$<"000015"THEN350
390 IFA$="Q"ORA$="[209]"THENGOSUB1210
400 IFA$="S"ORA$="[211]"THEN 560
410 IFA$="P"ORA$="[208]"THEN 1710
420 IFA$<>CHR$(133)THEN450
430 Z1=Z1+1:Z1=Z1AND15
440 POKE53280,Z1:GOTO340
450 IFA$<>CHR$(134)THEN480
460 Z2=Z2+1:Z2=Z2AND15
470 POKE53281,Z2:GOTO340
480 IFA$<>CHR$(135)THEN510
490 Z3=1-Z3:IFZ3=0THENPOKE53281,E(X)
500 GOTO340
510 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
520 GOTO270
530 :
540 REM SAVE KOALA PIC
550 :
560 SYS HGR
570 POKE53280,0:POKE53281,0
580 PRINT"[147][154]":POKE214,11:PRINT
590 PRINT"   [211]AVE THIS UNPACKED PICTURE? (Y[154]/N[154])":POKE198,0
600 GETA$:IFA$<>"Y"ANDA$<>"N"THEN600
610 IFA$="Y"THEN640
620 GOTO1090
640 PRINT"[147][154]":POKE214,9:PRINT
650 PRINT" [201]NSERT SAVE DISK AND ENTER A FILENAME."
670 PRINT"       [206]AME : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]PIC ";
680 LN%=10:SP$="                "
690 GOSUB730:IFNM$=""THEN1090
700 NM$=LEFT$(CHR$(129)+"PIC "+NM$+SP$,15)
710 GOTO860
720 REM --- INPUT ROUTINE ---
730 NM$="":X%=0:C%=PEEK(646)
740 PRINT"[152][164][157]";:POKE646,C%
750 GETA$:IFA$=""THEN750
760 A%=ASC(A$)
770 IFA%=20ANDX%THENX%=X%-1:NM$=LEFT$(NM$,LEN(NM$)-1):PRINT" [157][157]";:GOTO740
780 IFA%=20THEN750
790 IFA%=13THENPRINT" ":RETURN
800 IFX%=LN%THEN750
810 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]"ORA%=34THEN750
820 NM$=NM$+A$:PRINT""A$;:X%=X%+1:GOTO740
860 OPEN15,DV,15,"R0:"+NM$+"="+NM$:INPUT#15,ER,ER$:CLOSE15
870 IFER<>62THENGOSUB1120:GOTO1090
910 GOSUB1660:NM$=NM$+",P,W"
920 SYSPS,NM$:SYSHGR
960 OPEN15,DV,15:INPUT#15,ER,ER$,Y$,Z$:CLOSE15
970 IFERTHENGOSUB1120:GOTO580
1010 POKE53280,0:POKE53281,0
1020 PRINT"[147][154]":POKE214,7:PRINT
1030 PRINT"             [211]AVING COMPLETE."
1040 PRINT"   [201]F NECESSARY, PUT THE DISK IN"
1050 PRINT"     THE DRIVE AND PRESS [211][208][193][195][197][154]."
1060 GETA$:IFA$<>" "THEN1060
1070 OPEN15,DV,15,"R0:PACKAGE.O=PACKAGE.O":INPUT#15,ER:CLOSE15
1080 IFER<>63 THEN 1020
1090 SYSHGR:GOTO510
1130 POKE53280,.:POKE53281,.:PRINT"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
1140 [151]214,10:[153]
1150 A$[178]"PRINT#VALRROR #"[170][196](ER)[170]"PRINT#,"[170]ER$
1160 X%[178]22[171][195](A$)[173]2:[153][163]X%);A$
1170 [151]214,21:[153]
1180 [153]"PRINT#        (null)RESS (null)(null)ATNLENVALPRINT# TO CONTINUE."
1190 [161]A$:[139]A$[179][177]" "[167]1190
1200 [142]
1210 O[178][194](53270)[175]16
1220 [139]O[167][158]51459
1230 [151]53281,0:[151]53280,0
1240 [153]"LOADCONT  ATNRE YOU SURE YOU WANT TO QUIT? (YCONT/NCONT)"
1250 [151]198,0:[146]198,1:[161]AG$
1260 [139]AG$[178]"Y"[176]AG$[178]"(null)"[167]40000
1270 [139]O[167][158]51459
1280 [142]
1420 [153]"";
1430 :
1440 [151]53281,0:[151]53280,0:[151]53272,31
1450 [153]"LOADLISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
1460 [129]I[178]1[164]14
1470 [153]"(null)"[166]38)"(null)";:[130]
1480 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1490 [129]I[178]217[164]242:[151]I,([194](I)[176]128):[130]
1500 [153]"PRINT#"
1510 [129]I[178]1[164]13:[153][163][165]D(I))AN$(X,I):[130]
1520 [142]
1530 KK[178]0
1540 [151]214,15:[153]:[153]"LIST     (null)HILE THE SLIDE IS SHOWING..."
1550 [153]"   ASC1 SYS- LENHANGE BORDER COLOR"
1560 [153]"   ASC3 SYS- LENHANGE BACKGROUND COLOR"
1570 [153]"   ASC5 SYS- (null)OGGLE (null)EYOTEASCLASH (TM)
1580 PRINT"    [211] [158]- [211]AVE PICTURE AS [203][207][193][204][193]
1590 [153]"    (null) SYS- (null)RINT PICTURE"
1600 [153]"    (null) SYS- (null)UIT"
1610 [151]214,23:[153]
1620 [153]"LIST(null)RESS (null)LIST TO QUIT - ATNNY OTHER TO CONTINUEON"
1622 TI$[178]"000000"
1630 [161]A$:[139]A$[179][177]""[176]TI$[177]"000015"[167][142]
1640 [137]1630
1650 :
1660 [153]"LOAD";:[139]FH[167][151]254,0:[158]BA:[137]1690
1670 [151]251,64:[151]252,224:[151]253,204
1680 [158]UN
1690 [151]53280,C(X):[151]252,224:[151]253,204:[158]HGR:[142]
1700 [142]
1710 [158]HGR:[151]53280,0:[151]53281,0
1720 [153]"LOAD   FOR(null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null) (null)(null)RIGHT$(null)(null) (null)(null)STR$(null)(null)VAL
1730 PRINT"[155]    [205]ODE      [196]ENSITY     [215]IDTH"
1740 PRINT" 1.[158] 7-PIN                 WIDE"
1750 PRINT"    (1525)"
1760 PRINT" 2.[158] 8-PIN     [211]INGLE      WIDE"
1770 PRINT"    ([197]PSON)"
1780 PRINT" 3.[158]   '       [195]RT         NORMAL"
1790 PRINT" 4.[158]   '       [196]OUBLE      NARROW"
1800 PRINT" 5.[158]   '       [196]OUBLE      WIDE"
1810 PRINT" 6.[158]   '       [209]UAD        NARROW"
1820 PRINT" 7.[158]   '       [209]UAD        NORMAL"
1830 PRINT" 8.[158] [195]ANCEL"
1840 PRINT" [154][205]AKE SURE PRINTER IS READY."
1850 POKE198,0
1860 GETA1$:IFA1$<"1"ORA1$>"8"THEN1860
1870 A1=VAL(A1$):IFA1=1THENTB=80
1880 IFA1=2THEN DS=0:BT=1:TB=80
1890 IFA1=3THEN DS=4:BT=1:TB=120
1900 IFA1=4THEN DS=1:BT=1:TB=160
1910 IFA1=5THEN DS=1:BT=2:TB=80
1920 IFA1=6THEN DS=3:BT=2:TB=160
1930 IFA1=7THEN DS=3:BT=3:TB=120
1940 IFA1=8THEN SYS HGR:GOTO510
1950 FORJ=2TO24:POKE781,J:SYS59903:NEXT
1960 POKE214,1:PRINT
1970 PRINT"         [212]AB [208]OSITION"
1980 PRINT" 1.[158] [204]EFT"
1990 PRINT" 2.[158]     [195]ENTER"
2000 PRINT" 3.[158]         [210]IGHT"
2010 IFA1<>4ANDA1<>6THEN2040
2020 PRINT" 4.[158]   [195]ENTER-LEFT"
2030 PRINT" 5.[158]       [195]ENTER-RIGHT"
2040 POKE198,0
2050 GETA2$:IFA2$<"1"ORA2$>"5"THEN2050
2060 A2=VAL(A2$):IFA2=1THEN TB=0:GOTO2120
2070 IFA2=2THEN2120
2080 IFA2=3THENTB=TB*2:GOTO2120
2090 IFA1<>4ANDA1<>6THEN2040
2100 IFA1=4THENTB=53:GOTO2120
2110 TB=266
2120 POKE251,64:POKE252,224:POKE253,204:SYS UN
2130 SYS HGR
2140 IFA1=1THENSYS36864,224,204,TB,MD:GOTO2160
2150 SYS36867,224,204,TB,DS,BT,BT*320,MD
2160 POKE186,DV
2170 GOTO510
10000 D=PEEK(186):N$="B.NSA SHOW":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[206][193][214][193][202][207] [211][193][206][196][208][193][201][206][212][201][206][199] [193][210][212]
60040 Z$(2)[178]"BY (null)ALT LEFT$ARNED
60050 Z$(4)="(C) 1997 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN